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<html> 

<form ld = "r ^t^ard^info" method = "po3e" actlon = "htfcp: //5>ayment.asp-> 

<seleor f:=:rne="caL-d..typ©" onCllck- -»taBkJs_card_types)-> 

<opt!on value="i}niiax">Ame7?ca-~^ E:ij5res&</option> 
< option V3iue="visa"> V3sa</opl;lo*T> 
<option vaUie= ''i7rf£"> S^:., _ ,</optior.> 
</select> 

< grammar src = "./g^^.a^, ^.^g Ajypes" /> 
</reco > » 

<input fcvpe="V:entt" nam e ''c:a;'i]_:^ a m " w td^h = "325" 

onC!ick="talik(o_card_ir5ii.-.iT|'' /> 
<reco id = " g_eard_r3um " onReco = "hai^dfef ^ " > 

<grammar srn = " ./s^'a w^i ^dogits '> 
</reco > ' 

<input type^-'text" name= "expirv^dafte" 

onClick= "talkCg.explry.date)" /> 
<reco id= "g_expiry_date ' > 

< grammar src = " ./grsm^date^ " /> 
</reco > 

<input type = "submir valuer "Subm it" onCiick= ''veriiftf ( )" /> 
</form> . , 

<script>< ![CDATA[ 

function talk{gobj) { 
gobj . activate \) ; 

} 

function handle ( ) { 

if (get_card_infc. card_n ii?. i= null) { 

if (get_carc; in fv.. - card_type . va.lu-B == "amex") { 
if Cget_c-^rd_: nfo. card num. length != 15) 
^ alert ("amex. should have 15 digits"); 

} e 1 s e 

if (get_card ir:.j:o,card_nuin. length != 16) 
alert ("vij^ ^rj^ m.?i6v:er jhoul'i have 16 digits";; 
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function verify (; { 
info7")r'' ^""^^ ^indow„c:cr.c:.riYi(-suhinit tne credit card 
ii (flag) f 

get_card__ir;f o . suhn'.i': ; ) ; 



</scrlpt> 
</htm :> 
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< iody > 

< form id =" 3aw_wa&*d_lnfo " method ="po«l" action =" h^(c;//i,>«yfTS9nl:.S0p " 

onActlvate =" wclcom() "> 

< pro.-r.p^ Ic! =" ?_welcomc "> We ra^w tieedi ycu*- credit card </ prompt > 

< prompt id =" o„mrjinble "> I dic3n*2 siincersiand you </ prompt > 

300 < prcrnpt Id = " _'^ard_.t-/?® " barge in ="tr'je"> What cre<£it card would you 

use? < / prom pt > 

< prorr. pi id -"- p,_card„num " bargein = ■' t'.'U'J "> PCosas© say th(d nuni ber" </ prompt > 

< prompt id =" p _cr;?S3rv_6a£w " barcein ="tru«"> Wii^i is fth*^ ibxpiration 
date? </ prom pt > 

^ — ^ — < prompt id = '* is>„csDteT)4 "> 
303 " I have your < vslua select ccrd^o^P'S " /> < value select =" card„num " /> 

with tdnpirafiion cS^%(B 

< value select =" e^piry^date " /> 
</ pron)pt > 

< prompt id = '* p_coKjfirm "> Tic •!:3rr€ic:t? </prompt> 

< reco id=" Q_card_types " onNoReco =" fvtuinbi'^^rtEisi£^ 2) "> 
onReco =" _haiEdle(thB£i, £ard_tviPcO /> 

< grammar src - " ./ gram #cap"d_typec " 
</reco > 

< reco id^"* Q„card„num " onNoReco =" mumble^th^s, 3.} > 
onReco =" _handle(Shl«, card„num} " /> 

< grammar src=*' ./gram#d!goC:s " /> 
</reco > 

3Q5 ^ < reco \6=" Q_explry_date " onNoReco mumbi€^C^his, 1) > 

onReco =" _handle(tl;Es, expSB-y_G-afc©> " audio =" rao "/ > 

< grammar src = " ./cram#dates " /> 

</reco > 

< reco id=*' ctsn^Srmation " onReco =" ccnfirsK ed(tiiis) " /> 

< grammar src = " ./grarafl^yesi^r? " /> 
</reco > 

< select name =" card_typa "> 

< option value ="annvax"> An* ^: scan i?xpress </ option > 

< option value = " v3sa "> Vi&fa </ oprion > 

< option value ="ms"> Magj^erC^srd </ option > 

< / select > 

< input type ="fce;j*i" nanne =" "ard.^rdum " width =" 30 "/> . 

< input type ="text" nsme 0?!t,e " / > 

< inpuL type =" -.jferr^f^" value =" 5. " /> 
</ form > 

< scri-: > <! [CD AT AT 

f i,.rAr:-c:'.on welcome () { 
p_vfelcome . active ( ) .- 
rep-sa^ = 0; 
checkFilled ( ) ; 
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function rcumbie (gcbi , m£;c;:ro.'itpts ) { 

gob j . deactivate ( ) . 

p_:aumble . active ( ) ; 
ch^ckFil led J ) ; 
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function _handleC) { 
iiandi iC) ; 
check?! lledC); 

} 

function c^eckFilledO { 

if (carcL.typ^^- value = { 
p_card_type . act1 ve O ; 
g_ca rd_t y P £ s . a c 1 1 va 1 3 C ) ; return; 

} 

if (card^num. value { 

p_card_num. active O : i;_card_num.acti vate(); return; 

} 

if Cexpi ry_date. val ue ™ { 

P_expi ry_data.a-tiveO ; g, .expi ry_date. act ivate Q ; return; 

} 

p_content . acti vata C) ; 
p^confi rm. activate C) ; 
conf i rmati on . acti vate C) ; 

} 

function conf i rmed(gobj) { 

if Cgobj.recogRes.text == "yes") 
get_card_info.Si;bnnt() ; 

// 

// user codes start here 
// 

function handleO { 

if (qet_card_info.card_typt "amex") { 

if Cget_card__info.carcL num. length != 15) { 

prompt. speak C'amex should nave 15 digits"); 
get_r.ard_info.card_r.jm ""; 

} e ! se 

if Cget_card„info.ra; d_'*:'Jm.lengi;h ;= 16) { 

prornpt.spf^ak C*v-\:;a and master should have 16 digits"); 
get_card„i n fo ■ ca'-ci. rum =^ " " : 

> * ■ 

</scnpt> 
</bDdy> 
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<body> 

<form io=''g : ■ ' J^info*" met:-iod="pos*;" act!on="http://paYnrrant.asp" 
or,3d:ivai;e ^fr!!^f.)"> 

<prompt ':ome''>We now nsed your credit carci</prorript> 
< prompt id^=^^, _ ^lr^">J didn't r- ' r^tand you</prompt> 
<prompi: ld"\}Z^ cypa" f^ergein- 'u •^^"^ What credct ^ard Vw-ouid you 
use?</prompt> 

<protTipt id=^"p_L J_riMm" b2rgein^''t;^"e">5^e4sas'a say the number</prompt> 
<prornpt id =":5„r. jy^daie'' br«:%jeln-''true">What Ss the expiration 
date?</prompt> 

<prompt id="p_c©fr3tent"> 
1 have your <vaiue 3siect="cart3_tv'p2" />< value select="card_fium" /> 
with expS[ratic)ffTi e^ate <yalue se!€Ct='-e'^p^£if_diate'' /> 
</prompt> 

<prompt £ci="p„comrgrnri''>Is thSs ccrrect'P</prornpt:- 

<reco id='*g_get^,carc3Jnfo" cnReco="_^sndie(7 onNoReco ^"masn^ble(thjs)"> 
Orammar src =-./gram/getPaymenf /> 
<bmd tar::at="card_type" value'-="/card/?:ype" /> 

<bind target=="card_Kiiin" vaiue=Vcard/nu';nber" /> 

<bind target=''^xpiry_date" value''^"/eaird/ex?f_date'' /> 
</reco> 

<reco id="confirmation" onReco ="eciir3rinedttH;ss) onNoReco="mumble(this)" /> 
<grammarsrc =",/gram#yesnoV> 

<4Sec?;^ame="card_type"> 

<option va!ue="amex">Annerican Rxrsress</optton> 
<option vaiue="visa">Visa</option> 

<cpt;on value-"ms">Mast:srC3t'd</opt;cp> 
</se!ect> 

<;nput 'r/De^"t:sirt" ndme="card_L-i£fTrr' jtr.="30" /> 
<input r-^pe- 'text" n£me-''«xp5ry„c'-'.v'^ ' / ^ 
<:npi;t ^yca -''isifl ^mlt"' va!ue="Syfcnn5?/ /> 

<script><::CDAT/\i 



fpncticrs ir.i::VJveCpobj> { 
gooj . deacti vateQ ; 
p_fi;umbl e . ac t i ve () i 
check; il led ; 

function handle C) { 
handle O ; 



FIG. 10 A 



rO FiG. tOB 



I^TO F!< 



function chtckri 11 edQ { 
^ (carJ„type. value = " { 

^ p .Card_^yne.acr/i'^'^r) ; ^ dG_field. activate C) ; return; 

^ p„c?i.^d_v^uf^„activef > r d&_field.activateO ; return; 

if (exp1r>u.dat€,val _^ = ^'') { 

^ p_*>?^pi ry_.data . arti ve Q ; go_ r i eld. acti vate () ; ret u rn 

p_content = activsteO ; 
p„conf i rm , acti vate Q ; 
-orsf i rmat 1 on . scti vat.^ O : 

> 

function confirmed (gob j) { 

it (gob j , recogRes o text =^ "y-s^:") 

get_card_info. submit {yensfiil ()) ; 

// 

// user codes svart here 
function handleQ { 

if (field = get_card.info,c.ir£Lnump [ 

if (get:.car£Linfo.carcL)ium.lenqdi != 15) { 

prompt. speak ("amex should have 15 digits"); 
get_card_info.Card,.num = 



} eisc 



ise 

if (get_card_info.carci_nifm. length 1= 16) { 

prompt. speak ("v^'sa should have 15 digits"); 

get_.r.ard„infc ca. r- n'j:T := 

function g^fiSiTuC) i 

str = '<sml ><c:"ed -^t^card type="'; 
str >- card_type. valus: str •"><number>': 
sti" '^- cai d^rumh^r -v^iluc ; += '</numb'?ir><excire>' ; 
*'i:r^ -^=. expi ry_cate c Veil u^? ; str 
'</2Xp»: '-Six/ credi ts Csird></sml>' r 
return sir; 

> 

</body> 
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SAMPLE ASP+ PAGE 

<%@ P->ge language=" Jscripf AutoEventWireap="f a Ise" Inher:.t.'?="Cre iit . Transaction" %> 
<htial><heaci> 

<i — ASPX page for both voice-only & multimodal credit card example — > 
<script> 

function he.ndle ( ) i 

if (fiolG get_card_info . card_num) { 

if (get. ..;i.:d info . card niom. length != 15) { 
pro:T.pt . opoa.k (''a^ex should have 15 digits"); 
aet c£rc_ir-^''-" - r,ard_ nuui 

) 

} else 

if (get_card_inf o . card n>jim. l£nc;ti:v != 16) { 
prompt. speak ("visa should have 15 digits"); 
get_card_info . card_num = •**'; 

} 

} 

function gensml ( ) { 

str •= ' <sml><credit_card><card_type> ' ; 

str += card_type . value; str ' </card_type><number> * ; 

str += card_number . value; str += * </:a;irr.ber><expire> ' ; 

str += expiry_date . value; str += ' </ expire></credit_card></sml> • ; 

return str; 

} 

</script> 

< script runat=" server" > 
function Page_Load (obj, args) { 
if (PostBack) { 

validator = new System. Speech. SMLValidator (". /CreditSDL.xml") ; 
dsml = validator . Evaluate (args ) ; 
Navigate (ChoosePage (dsml) ) ; 
) else { 

// initialize fields with args 

} 

} 

</script> 

</head> 

<body> 

<speech ; f crm id- "''oet_C£rd info*' style-"sy.^'':eni_initiative" 

promp'c=" /prompt/getFay-Aient " ciisu':^mit=-*c7ensml ( ) "> 
< speech : choice name^**card_type" prompt=''Whot credit card would you use?" 

grainmar=" - /gr?uri^^card_type ?*' onPhrascTr.Aisii^" handle ( ) " 

< op t i o r.:^ r^va r .i c c: r, E xp a: e s c ^ /* o p t x or^ > 

< op t i c n > V i c a </ cp c i on> 

<optioa>N;a.st;3rcard </option> 
</speech: choicfc;> 

<speech : textbox name-" car d_n'aiiiber" prompt=*\Please say the number" 

grammar=" . /grair.#digits" onPhraseFinish^= '"handle ( ) *'> 
<speech • textbox na:'ae=-*e:ipiry _dat<='* prompt=*'What is the expiration date? " 

gramma r=--*' . /gram#dat3s" onPhraseFinish="handle ( ) "/> 

</ speech: forra^- 

</body> 

</html> 
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